/* GUI CONVERTED from rescfm.i (converter v1.76) Wed Jan 23 14:49:42 2002 */
/* rescfm.i  - SHOP CALENDAR SHIFT FORM                          */
/* Copyright 1986-2002 QAD Inc., Carpinteria, CA, USA.                  */
/* All rights reserved worldwide.  This is an unpublished work.         */
/* $Revision: 1.7.1.3 $                                                         */
/*V8:ConvertMode=Maintenance                                            */
/* REVISION: 7.0     LAST MODIFIED: 05/05/92    BY: emb *F472*/
/* REVISION: 7.0     LAST MODIFIED: 09/19/94    BY: ljm *FR42*/
/* REVISION: 7.0     LAST MODIFIED: 10/24/94    BY: ljm *GN54*/
/* REVISION: 7.0     LAST MODIFIED: 04/24/95    BY: ais *F0P6*/
/* REVISION: 8.6E    LAST MODIFIED: 02/23/98    BY: *L007* A. Rahane */
/* REVISION: 8.6E    LAST MODIFIED: 03/02/98    BY: *L008* A. Rahane */
/* REVISION: 8.6E    LAST MODIFIED: 05/20/98    BY: *K1Q4* Alfred Tan   */
/* REVISION: 8.6E    LAST MODIFIED: 10/04/98    BY: *J314* Alfred Tan   */
/* REVISION: 9.1     LAST MODIFIED: 08/11/00    BY: *N0J4* Mudit Mehta  */
/* Old ECO marker removed, but no ECO header exists *F0PN*                    */
/* $Revision: 1.7.1.3 $    BY: Annasaheb Rahane      DATE: 01/18/02  ECO: *N180*  */
/******************************************************************************/
/* All patch markers and commented out code have been removed from the source */
/* code below. For all future modifications to this file, any code which is   */
/* no longer required should be deleted and no in-line patch markers should   */
/* be added.  The ECO marker should only be included in the Revision History. */
/******************************************************************************/

FORM /*GUI*/ 

   /*V8+*/
        
   
 RECT-FRAME       AT ROW 1.4 COLUMN 1.25
 RECT-FRAME-LABEL AT ROW 1   COLUMN 3 NO-LABEL
 SKIP(.1)  /*GUI*/
colLabel[1] format "x(5)"  at 13
   colLabel[2] format "x(11)" at 20
   colLabel[3] format "x(8)"  at 33
   colLabel[4] format "x(10)" at 43
   colLabel[5] format "x(14)" at 54 skip
     
   space(12) "    1"  space(5) shft_h_start1  format "99:99"
   space(4) shft_hour1  space(4) shft_pat1 space(4) shft_load1 skip
   space(12) "    2"  space(5) shft_h_start2  format "99:99"
   space(4) shft_hour2  space(4) shft_pat2 space(4) shft_load2 skip
   space(12) "    3"  space(5) shft_h_start3  format "99:99"
   space(4) shft_hour3 space(4)  shft_pat3 space(4) shft_load3 skip
   space(12) "    4"  space(5) shft_h_start4  format "99:99"
   space(4) shft_hour4  space(4) shft_pat4 space(4) shft_load4 skip
 SKIP(.4)  /*GUI*/
with frame {1} overlay no-labels width 80
no-hide  NO-BOX THREE-D /*GUI*/.

 DEFINE VARIABLE F-{1}-title AS CHARACTER.
 F-{1}-title = (getFrameTitle("{2}",45)).
 RECT-FRAME-LABEL:SCREEN-VALUE in frame {1} = F-{1}-title.
 RECT-FRAME-LABEL:WIDTH-PIXELS in frame {1} =
  FONT-TABLE:GET-TEXT-WIDTH-PIXELS(
  RECT-FRAME-LABEL:SCREEN-VALUE in frame {1} + " ", RECT-FRAME-LABEL:FONT).
 RECT-FRAME:HEIGHT-PIXELS in frame {1} =
  FRAME {1}:HEIGHT-PIXELS - RECT-FRAME:Y in frame {1} - 2.
 RECT-FRAME:WIDTH-CHARS IN FRAME {1} = FRAME {1}:WIDTH-CHARS - .5. /*GUI*/


assign colLabel[1]:screen-value in frame {1} = getTermLabel("SHIFT",5)
       colLabel[2]:screen-value in frame {1} = getTermLabel("START_TIME",11)
       colLabel[3]:screen-value in frame {1} = getTermLabel("HOURS",8)
       colLabel[4]:screen-value in frame {1} = getTermLabel("PATTERN",10)
       colLabel[5]:screen-value in frame {1} = getTermLabel("PRODUCTIVITY",14).
